home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / BBS_UTL / FIDO_MSG / MSG_DEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1995-08-01  |  864b  |  34 lines
  1. USES Dos,Msg;
  2.  
  3. Const
  4.   Dest:   TNodeRec = (Zone:   115;
  5.                       Net:    9999;
  6.                       Node:   9999;
  7.                       Point:  0;
  8.                       Domain: 'PascalNet'
  9.                      );
  10.  
  11.   Org:    TNodeRec = (Zone:   115;
  12.                       Net:    4401;
  13.                       Node:   1;
  14.                       Point:  0;
  15.                       Domain: 'PascalNet'
  16.                      );
  17.  
  18.   NetDir: PathStr = 'D:\FD\NETMAIL';
  19.  
  20. begin
  21.   if CreateMsg(NetDir,Dest,Org,
  22.                'Fred Bloggs',
  23.                'Mark Cole',
  24.                'A Test',
  25.                HoldMask + LocalMask) THEN
  26.    begin
  27.      WriteToMsg('Hello Fred, this is a test message!'#13);
  28.      WriteToMsg(#13#10);
  29.      WriteToMsg('Best Wishes, Mark'#13#10#13#10);
  30.      WriteToMsg('---'#13);
  31.      CloseMsg;
  32.    end;
  33. end.
  34.